home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / grumptem.zip / STDGRUMP.TLB < prev   
Text File  |  1993-01-04  |  4KB  |  144 lines
  1. <<title Standard template functions>>
  2. <<uicode>>
  3.  
  4. ** ** ** ** ------------------------------------ ** ** ** **
  5. ** Modifications by John H. Stolte, Sr.  1/23/89
  6. ** to include Calls to Grumpfish Popup utilities  CLIPPER SUMMER 87 ONLY
  7. ** Copyright (c) 1990 Medco Systems, Inc
  8. **
  9. ** The way the Grump stuff is set up here is the way _I_ like it done,
  10. ** you are welcome to change it anyway you like
  11. ** ** ** ** ------------------------------------ ** ** ** **
  12.  
  13. *************************************************************
  14. *
  15. * This library contains standard template functions.
  16. * And also the Calls to the Grumpfish Popup routines
  17. *
  18. ***************************************************************
  19. function db3plus
  20. return flavor = "dBASE III PLUS"
  21.  
  22. function dBASE4
  23. return flavor = "dBASE IV"
  24.  
  25. function Clipper
  26. return substr(flavor,1,7) = "Clipper"
  27.  
  28. function Summer87
  29. return flavor = "Clipper Summer 87"
  30.  
  31. function Autumn86
  32. * Will be removed soon.
  33. return flavor = "Clipper Autumn 86"
  34.  
  35. function Fox
  36. return substr(flavor,1,3) = "Fox"
  37.  
  38. function Fox1
  39. * Will be removed soon.
  40. return flavor = "FoxBASE+ 1.x"
  41.  
  42. function Fox2
  43. return flavor = "FoxBASE+ 2.x"
  44.  
  45. function FoxPro
  46. return flavor = "FoxPro"
  47.  
  48. function QS
  49. return flavor = "QuickSilver"
  50.  
  51. function dBXL
  52. return flavor = "dBXL"
  53.  
  54. *
  55. * function to write code that sets up environment stuff
  56. *
  57. function env_setup
  58.  
  59. ?"* environment"
  60. if multi
  61.   if dBASE4()
  62.     ?"SET LOCK OFF"
  63.   else
  64.     ?"SET EXCLUSIVE OFF"
  65.   endif
  66. endif
  67.  
  68. if substr(flavor, 1, 7) <> "Clipper"
  69.   ?"SET TALK off"
  70.   ?"SET STATUS off"
  71.   ?"SET ESCAPE off"
  72.   ?"SET WRAP on"
  73. endif
  74. * Rev #2 begins
  75. if substr(flavor, 1, 8) = "FoxBASE+"
  76.   ?"SET BELL OFF"
  77. endif
  78. * Rev #2 ends
  79.  
  80. ?"SET SCOREBOARD off"
  81. ?"SET CONFIRM off"
  82. ?"SET WRAP ON"
  83. ?"SET SOFTSEEK ON"
  84. ?"SET DELETED ON"
  85.  
  86.  
  87.  
  88. if ghelp
  89. ?"** ** ** ** ------------------------------------ ** ** ** ** **"
  90. ?"** for the GrumpFish stuff                                   **"
  91. ?"** ** ** ** ------------------------------------ ** ** ** ** **"
  92. ?
  93. ?** change grumphelp to help for deliverable version
  94. ?
  95. ?"    external grumphelp                  "
  96. ?"    set key 28 to grumphelp             && F1 key for help in development mode"
  97. ?"    key_28 = 'grumphelp'                "
  98.  
  99. ?"** ** ** ** ------------------------------------ ** ** ** **"
  100. endif
  101. ?
  102. if gphone
  103. ?"EXTERNAL POPPHONE && Autodialer and phone directory -JHS-"
  104. ?"phonekey = -6                           && F7 key"
  105. ?"phonehead = 'Contacts'"
  106. ?"mass_mask = '*.txt'"
  107. ?"SET KEY phonekey TO popphone"
  108. ?"** ** ** ** ------------------------------------ ** ** ** ***"
  109. endif
  110. ?
  111. if Gdate
  112. ?"EXTERNAL POPDATE && Calendar and scheduler    -JHS-"
  113. ?"datekey = -7                            && F8 Key"
  114. ?"SET KEY datekey TO popdate"
  115. ?"** ** ** ** ------------------------------------ ** ** ** ***"
  116. endif
  117. ?
  118. if gcalc
  119. ?"EXTERNAL popCALC    && get the calculator hummin'    -JHS-"
  120. ?"public paste_no"
  121. ?"calckey = -9                            && F10 Key"
  122. ?"SET KEY calckey to popcalc"
  123. ?"SET KEY 16 to paste  && Ctrl-P to paste the result into the current get -JHS-"
  124. ?"** ** ** ** ------------------------------------ ** ** ** ***"
  125. ?
  126. endif
  127.  
  128. if gnote
  129. ?"EXTERNAL POPNOTE    && Popup Note Pad    -JHS- 10/5/89"
  130. ?"public wildcard"
  131. ?"wildcard = '*.not'"
  132. ?"notefile = 'notes.not'"
  133. ?"notekey = -5                            && F6 Key"
  134. ?"SET KEY notekey TO popnote"
  135. ?"** ** ** ** ------------------------------------ ** ** ** ***"
  136. ?
  137. endif
  138.  
  139. <<enduicode>>
  140. <<uicode>>
  141. return
  142. <<enduicode>>
  143. 
  144.